(define-compiler-macro): Purecopy the file name.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 850bac71b06586d8aa64d1a36239bc802428a45c..80d816cc5178b202a8c8aeea8fcdf134a3df74e7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2009-11-12  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * emacs-lisp/cl-macs.el (define-compiler-macro): Purecopy the file name.
+
 2009-11-11  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * widget.el (define-widget): Purecopy the docstring.

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index a0b0d2e092b06aadd57b5bc47526843cab0a02c2..82d7843cd3a98a5a663257b7c08456943fb9b85e 100644 (file)
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -2565,7 +2565,7 @@ and then returning foo."
                          (list 'if 'file
                                (list 'put (list 'quote func)
                                      '(quote compiler-macro-file)
-                                     '(file-name-nondirectory file))))))))
+                                     '(purecopy (file-name-nondirectory file)))))))))
 
 ;;;###autoload
 (defun compiler-macroexpand (form)